home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
twview91.zip
/
INITGRPH.INC
< prev
next >
Wrap
Text File
|
1992-03-11
|
483b
|
24 lines
procedure InitGraphics;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
if SVGA then
InitializeSpecialGraphics
else
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then
WriteLn('Graphics error:',
GraphErrorMsg(ErrCode))
else
SetTextJustify( CenterText, CenterText );
end; {else}
end; {InitGraphics}